#!/usr/bin/perl -w
use strict;


	my   ($sec, $min, $hour,$mday,$mon,$year) = localtime(time); 
	printf ("%02d/%02d/$year (%02d:%02d:%02d) %-40s %s\n", $mday, ($mon + 1), $hour, $min, $sec, @ARGV);
